home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr47 / shwtxt16.zip / GUESS.ST < prev    next >
Text File  |  1995-03-15  |  555b  |  9 lines
  1. 'NUMBER GUESSING GAME 
  2. ON INTKEY0 ESC GOTO Q\COPY(GUESS,1)\C@12,16\:N\CLS7,0\WT.5\CSR(12,16,18,65)
  3. %S=[RND1TO50]\COPY(1,0)[RND0TO64]\%Q=1\%L=0\%H=51\:S\ATTR62\P@17,40\!%Q,1
  4. BFILL0(12,16,12,%L+15)ATTR60\BFILL0(12,%H+15,12,65)ATTR60\:I\CSR\WK
  5. IF[.18:16:18:25]N\IF[.18:58:18:65]Q\IF`[.12:16:12:65]I\%G=[.C]-15\ATTR31\CSR OFF
  6. IF %G<=%L|%G>=%H I\IF %G=%S W\IF %Q=5 L\%Q++\IF %G>%S M\%L=%G\GT S\:M\%H=%G
  7. GT S\:W\WINDOW(11,33,15,47)100\P@13,37\!"YOU WIN"\P@14,39\!%S,2Q\:W1\WK\GT N
  8. :L\WINDOW(14,33,18,47)100\P@16,34\!"NUMBER WAS ";\!%S,2Q\GT W1\:Q\EXITC
  9.